home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / pctj0987.arc / DRAWTEST.BAS < prev    next >
BASIC Source File  |  1987-07-02  |  669b  |  27 lines
  1. 5 ' ADAPTED FROM IBM BASIC MANUAL VER 3.0, PG. 78
  2. 10 KEY OFF
  3. 20 SCREEN 1,0
  4. 30 STAR$="M+7,17 M-17,-12 M+20,0 M-17,12 M+7,-17"
  5. 40 SCALE = 0
  6. 50 S$ = "C1;S=" + VARPTR$(SCALE) + " BM-2,0 X" + VARPTR$(STAR$)
  7. 60 START! = TIMER
  8. 70 '
  9. 80 ' Time empty loops
  10. 90 T1! = TIMER
  11. 100 FOR I = 1 TO 50
  12. 110   FOR SCALE = 1 TO 40 STEP 2
  13. 120   NEXT SCALE
  14. 130 NEXT I
  15. 140 T2! = TIMER
  16. 150 '
  17. 160 ' Start the test
  18. 170 FOR I = 1 TO 50
  19. 180   CLS : DRAW "BM300,25"                           'INITIAL POINT
  20. 190   FOR SCALE =1 TO 40 STEP 2
  21. 200     DRAW S$
  22. 210   NEXT SCALE
  23. 220 NEXT I
  24. 230 SECS! = (TIMER - T2!) - (T2! - T1!)
  25. 240 PRINT SECS!
  26. 250 INPUT "PRESS ENTER TO QUIT"; X
  27.